home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / term / term43_extras.lha / Extras / Rexx / AskUpload.term < prev    next >
Text File  |  1995-02-20  |  1KB  |  34 lines
  1. /* $VER: AskUpload.term (20.1.95)
  2. **
  3. ** Written by Olaf `Olsen' Barthel
  4. **
  5. ** You can put this script into the `Binary upload' text entry field
  6. ** of the transfer settings. When an upload is invoked, you will be
  7. ** asked if you only want to send files or if you want to both send
  8. ** and receive data. Depending on what you choose the Hydracom protocol
  9. ** will be invoked.
  10. **
  11. ** NOTE: In order for this script to work it must be able to find
  12. **       the Hydracom program. Change the line that reads `hydra = "hydracom"'
  13. **       if necessary, e.g. into `hydra = "c:hydracom"' or where ever you
  14. **       put the program.
  15. */
  16.  
  17. hydra = "hydracom"
  18.  
  19. OPTIONS results
  20.  
  21. ARG parameters
  22.  
  23. requestresponse options '"Send|Send & Receive|Cancel"' prompt '"Do you wish to send, or send & receive files?"'
  24. /*requestresponse options '"Nur versenden|Auch empfangen|Abbrechen"' prompt '"Dateien nur versenden, oder auch empfangen?"'*/
  25.  
  26. IF rc = 0 THEN DO
  27.     IF result = 1 THEN
  28.         cmd = "run " || hydra || " " || parameters
  29.     ELSE
  30.         cmd = "run " || hydra || " " || parameters || " get"
  31.  
  32.     ADDRESS command cmd
  33. END
  34.